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Con il presente fascicolo ha inizio una raccol- 
ta dei migliori programmi del Commodore C16 
pubblicati su libri e riviste Jackson. 

In ogni numero un supergame originale in- 
glese descritto nei minimi particolari ed in 
più una miriade di altri programmi scelti tra 
utility, grafica, musica, giochi ecc. 

Ciascun listato è accompagnato da una recen- 
sione approfondita e da consigli per un cor- 
retto utilizzo. 

Non solo potrete caricare immediatamente i 
programmi grazie al master su cassetta alle- 
gato alla confezione, ma anche personalizzar- 
li servendovi dei listati e della descrizione 
pubblicata alVinterno del fascicolo. 

La Jackson Soft Compilation, è una pubblica- 
zione creata su misura per voi appassionati 
allo scopo di arricchire sempre di più la vo- 
stra raccolta di programmi. 
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Tower 
of E vii 


Inserita la cassetta, battete 
LOAD “TOWER” e premete il 
tasto RETURN. Poi, dato il 
via con RUN, verrà caricato 
in memoria il programma 
principale del gioco, in lin- 
guaggio macchina. Quando 
compare la schermata ini- 
ziale, siete pronti per entra- 
re nel regno misterioso del- 
la Torre del Male. Se siete 
coraggiosi, se avete riflessi 
pronti e siete decisi a tutto 
non esitate: battete uno dei 
due tasti funzione [FI] o 
[F2] e tenetevi pronti. 

La figurina che compare al 
centro dello schermo è un 
guerriero di nome Andros. 
Andros è in missione: deve 
ricuperare il tesoro rubato 
da un negromante e libera- 
re la principessa rapita dai 
mostri schiavi del mago. 
Andros deve fare affida- 
mento soprattutto sulla ve- 
locità dei suoi passi, anche 


se non è del tutto indifeso. 
Grazie all’aiuto di un amico 
esperto in magia può sca- 
gliare strali di fuoco dalla 
punta delle dita. Vari mo- 
stri gli ostacolano il passo 
cercando di ucciderlo e ci 
riuscirebbero facilmente se 
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non fosse per le cinque vite 
a disposizione. 

La torre ha nove stanze per 
ognuno degli otto piani e 
fra i vari oggetti da ricupe- 
rare vedrete in una delle 
stanze di ogni piano una 
chiave, che serve per co- 
mandare l’apertura della 
porta magica per passare al 
piano successivo. Appena 
entrati dalla porta magica 
vi troverete su di un altro 
livello. Dovete allora uscire 
dalla porta e continuare 
l’impresa eroica che avete 
intrapreso. Un sorso al cali- 
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ce delPeterna giovinezza vi 
darà per qualche tempo 
l’incolumità (Andros pul- 
sa). Giunti al settimo livel- 
lo dovrete depositare i teso- 
ri nella cassaforte e libera- 
re la principessa che vi cor- 
rerà incontro. 

I movimenti si comandano 
con il joystick, oppure con 
la tastiera con i seguenti ta- 
sti: 

; verso l’alto 
/ verso il basso 
z verso sinistra 
x verso destra 
spazio sparo. 

Quando la barra degli spazi 

0 il pulsante di sparo del 
joystick sono premuti, An- 
dros spara restando fermo. 
La direzione dello sparo è 
quella di moto. 

1 tesori che raccoglierete 
man mano verranno segna- 
lati nella parte alta dello 
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schermo, così come vengo- 
no visualizzati il punteggio 
raggiunto e il numero di vi- 
te ancora a disposizione. Se 
venite in contatto con uno 
dei mostri o se uno di essi 
vi spara, perdete una vita e 
con essa la chiave per l’ac- 
cesso al piano successivo. I 
mostri di ogni piano hanno 
forme e comportamenti di- 
versi e in linea di massima, 
la loro aggressività aumen- 
ta con l’aumentare del pia- 
no. Grazie al vostro potere 
li potete uccidere, guada- 
gnando dei punti che au- 
mentano man mano che si 
sale. I belzebù del primo 
piano sono abbastanza in- 
nocui se non li fate avvici- 
nare troppo. A cominciare 
dai Semi-cloni del secondo 
piano in su, non c’è più tan- 
to da stare tranquilli. Il fat- 
to è che questi sentono 
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l’odore umano e arrivano 
dove vi trovate anche dalle 
altre stanze. Di solito i luo- 
ghi dove ce n’è di più sono 
attorno alla chiave e attor- 
no alla porta di accesso al 
piano successivo. Qui non 
basterà la velocità delle vo- 
stre gambe, vi toccherà spa- 
rare e fare un po’ di piazza 
pulita prima di riuscire 
nell’intento. 



Consigli 

Dato che i punti che potete 
guadagnare nell’uccidere i 
mostri non sono poi molti, 
limitatevi a cercare di ricu- 
perare il tesoro e a trovare 
la chiave per salire al piano 
successivo. Sparate solo 
quando è necessario: il più 
delle volte basta un po’ di 
velocità per aggirare i mo- 
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stri e batterli sul tempo. 
Quando si inizia il gioco e 
quando uscite dalla porta 
magica vi trovate sempre 
nella stanza centrale della 
torre. Cercate di dare uno 
sguardo in ognuna delle 
stanze (che possono avere 
da una a quattro porte) e ri- 
cordatevi la pianta del pia- 
no per poter raggiungere 
immediatamente la porta 
magica non appena in pos- 
sesso della chiave. 

E ora, coraggio. Respirate 
profondamente e buttatevi 
nell’impresa. 




Guida all’input CI 6 


Norme per la 

battitura 

I caratteri grafici, ottenuti 
con la pressione dei tasti 
“Shift” e “CBM”, sono codi- 
ficati in modo da indicare il 
tasto da premere assieme a 
“Shift” o “CBM”. Es. il cuori- 
cino è codificato con {SH 
S j. Il numero dentro le pa- 
rentesi indica le volte che il 
tasto va premuto. 


TABELLA DI CONVERSIONE 


{HOME } HOME 

{ CLR } PULIZIA SCHERMO 

{CUR.SU } CURSORE IN ALTO 

{ CUR . Gl U } CURSORE IN BASSO 

{CUR.DES} CURSORE A DESTRA 

{CUR. SIN} CURSORE A SINISTRA. 

{SPC } SPAZIO 

{ RVS ON } REVERSE ON 

{ RVS OFF } REVERSE OFF 

{FLASH ON} FLASH ON 

{FLASH OFF} .... FLASH OFF 

{ INST } INSERT 

{BLACK} COL. NERO (CTRL+1) 

{WHITE} COL. BIANCO (CTRL+2) 

{RED} COL. ROSSO (CTRL + 3) 

{ C Y AN } COL. CIANO (CTRL + 4) 

'{PURPLE} COL. PORPORA (CTRL + 5). 

{GREEN} COL. VERDE (CTRL + 6) 

{BLUE} COL. BLU (CTRL+7) 

{YELLOW} COL. GIALLO (CTRL + 8) 

{ORANGE} COL. ARANCIO (CBM+1) 

{BROWN} COL. MARRONE (CBM+2) 

{ YL- GREEN’} COL. Gl ALLO- VER DE (CBM+3) 

{ P I N K } COL. ROSA (CBM + 4) 

{ BL-GRN } COL. BLU-VERDE (CBM+5) 

{ LT . BLUE } COL. BLU CHIARO (CBM + 6) 

{ D_. BLUE } COL. BLU SCURO- (CBM + 7) 

{LT. GREEN} COL. VERDE CHIARO (CBM + 8) 




IO 


aUMOHral 




1 POKE5 6,60:CLR: COLORO, 1 : COLORÌ , 1 :SCNCLR 

2 A$(0)="INTER":A$(1 )-" V A L LO " : A $ ( 2 ) = " " 

3 PRINT" {BLACK}M{SH 0 } { 6 CUR.GIU}T DOOO 
D1FF 3 EOO { 2 CUR.GIU}X{2 CUR.GIU}G{SH 0 
} 5 " 

4 POKE 239,5: POKE1319,19:FORT=OT03:POKE13 

20 + T , 1 3 : NEXT : END 

5 SCNCLR:IM=15872:IS=3072:VOL 8 

6 F0RY=OTO2:H=-8*(Y>0)*Y 

7 L-LEN(A$(Y)):IFL=0THEN20 



Hai bisogno di distenderti? 
Vuoi rilassarti con un gioco 
d’azione senza affaticare 
troppo il cervello? Eccoti 
INTERVALLO. 
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Descrizione 

In questo gioco divertente 
e dalla grafica modificata, 
ti trovi in un cantiere edile 
a mezzogiorno, la sirena 
della pausa per il pranzo è 
già suonata e tutti gli ope- 
rai si sono allontanati per 
mangiare insieme. La fretta 
ha però giocato loro un 
brutto scherzo, si sono in- 
fatti dimenticati sulla 
struttura della casa in co- 
struzione tutte le borse con 
il pranzo e hanno allora de- 
ciso di mandare uno di loro 
a prenderle. 

Questo è dunque il compito 
che ti aspetta: guidare le 
mosse dell’operaio incari- 
cato della raccolta su per le 
travi della casa da un piano 
all’altro a prendere tutte le 
borse dei suoi distratti 
compagni. Dei sacchi di ce- 
mento si mettono a compli- 
care le cose; infatti cadendo 
dalla cima a causa del vento 
improvviso, rotolano giù 
per la struttura veloci e pe- 
ricolosi. 

Attenzione poi a non cadere 
dalla struttura poiché ciò 
sarebbe fatale! 


8 Q«0:IFLEFT$(A$(Y),1)="*"THENQ-3:L«L-1: 
A$(Y )=RIGHT$(A$(Y) ,L) 

9 COLORI ,1 : CHAR , 0 , 0 , A$ ( Y ) 

10 J = 0 :FORX = OTOL-1 : I FX > OTH EN J = J- 2 

11 V=PEEK(IS+X) 

12 FORA=0TO6 

13 CR=PEEK(IM+V*8+A) 

14 FORBII T05 

15 IF ( CRAND2+B ) -OTHEN1 9 

16 COLORI ,INT(RND(0)*15)+2,INT(RND(0)*8) 

17 CX=7-B+X*8+J+Q:CY=A+Y*8+1 

18 CHAR,CX,CY,CHR$(209) :SOUND 1,900,. 5 

1 9 NEXTB , A , X 

20 NEXTY 

21 FORT-1 T05000 :NEXT 

2 2 COLORO, 2: CO LORI ,1 : COLOR 4 , 1 5 , 6 : SCNCLR : 
P0KE5 6 , 63 : CLR 

100 SCNCLR: PRINTTAB(1 3)” (7 CUR . Gl U } INTER 
VALLO” 

1 10 CO LORO, 2: COLOR 4, 2: CO LORI ,15,4:PRINTC 
HR $ ( 8 ) 

120 REM* * ABBASSA LA MEMORIA PER DEFINIRE 
I NUOVI CARATTERI IN ZONA PROTETTA* 

* 

130 POKE55,255:POKE56,47:CLR 
140 REM* *SALTA A DEFINIZIONE NUOVI CARAT 
TE RI * * 

150 DI MB (11): G0SUB1 230 
160 JJ-1 : V0L8 

170 REM**INIZIALIZZAZIONE VARIABILI** 

180 DD(0)=-1:DD(1)=1:DI=DD(INT(RND(0)*2) 

) 

190 A$=" >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
>>>>>>>{ CUR. SIN } {INSTI >" iG—1 024: E2- 
0 

200 SC-1:CH-2;E1-0:D(0)-4:D(1)=2:D(4)-7: 

Z= 65 : E3-1 :Q=1 0000 : J = 56 
210 E4 = 0 : E5“2 

220 REM** SALTA A ROUTINE DI CREAZIONE DI 
SEGNO** 

230 GOSUB940 : POKE239 ,0:H=0:Y=0 
240 S=3953+INT(RND(0)*38): IFPEEK ( S+ 40 ) =6 
20RPEEK(S)=59THEN240 
250 T=PEEK(S) : POKES , 5 8 : POKES + G , 0 
260 V = 3 1 71 +B(Y) :W = 62:DD = DD(INT(RND(0)*2) 
) 

270 REM**ROUTINE DI INTERROGAZIONE INPUT 
UTENTE** 

280 GETQ$ 

290 IF JOY (JJ ) >80RQ$ = " "THENJV=1 : G0T0350 
300 IFJOY ( JJ)=50RQ$»"B"THENJV*2: GOTO 350 
310 IFJOY ( JJ )=70RQ$ = ”G"THENJV = 3 : GOTO 35 0 
320 IFJOY (JJ ) = 1 ORQ$ = ”Y" THENJV = 4 : GOTO 3 50 
330 IFJOY (JJ ) -30RQ$="H"THENJV»5 : G0T0350 
340 JV=0 

350 0NJVG0T051 0,380, 41 0, 450, 480 
360 REM** IL GIOCATORE NON SI MUOVE** 

370 FORN=1TO23:NEXT:GOTO590 
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380 REM**SP0STAMENT0 IN BASSO* * 

390 IFPEEK(S+40 )=ZTHENPOKES ,T : POKES+G ,D ( 
T-J ) : S = S+ 40 : G0T0580 
400 G0T0590 

410 REM** SPOSTAMENTO A SINISTRA** 

420 D I =»- 1 : IFPEEK(S + 39)<620RPEEK(S + 39)>63 
THENPOKES , T: POKES+G , D ( T-J ) :S = S- 1 : GOT 
0580 

4 30 IFTOZTHENPOKES , T : POKES+G, D(T~J ) :S = S 
+ DI :T=PEEK(S) : GOT0700 
440 GOT0590 

450 REM**SPOSTAMENTO IN ALTO** 

460 IFT=ZTHENPOKES , T : POKES+G , D ( T- J ) :S = S- 
40 : G 0 T 0 5 8 0 
470 GOTO590 

480 REM**SPOSTAMENTO A DESTRA** 

490 D I = 1 : IFPEEK(S+41 )<620RPEEK(S+41 )>63T 
HENPOKES ,T :POKES+G,D(T-J ) :S = S + 1 : GOTO 
580 

500 GOTO430 
510 REM**SALTO** 

520 FORHH^OTOI 00STEP1 0 : S0UND1 ,HH,1 : NEXT 
530 POKES , T : POKES+G, D(T“J ) :S=S~40+DI :T=P 
EEK(S) : POKES ,58:IFT=60THEN700 
540 IFPEEK(S+40)=60THENSS=SS+1000 : PRINT" 
{HOME} { RVS ON } "TAB ( 8-LEN ( STR$ (SS ) ) )S 
S 

550 F0RN=1T05:NEXT:P0KES,T:P0KES+G,D(T-J 
):S-S+40+DI:T-PEEK(S): POKES ,58 
560 IFS>39910R(PEEK(S+40)>6lANDPEEK(S+40 
) <64 )THEN700 

570 FORHH=1 OOTOOSTEP-1 0 :S0UND1 ,HH,1 :NEXT 
: POKES + G , 0 : GOTO590 
580 T^PEEK(S) : POKES ,58 : POKES + G, 0 
590 IFT061 THEN61 0 

600 SS = SS+ 1 50 : PRINT" {HOME} { RVS ON}"TAB(8 
-LEN(STR$(SS)))SS:H=H+1:T=62:IFH=16T 
HEN860 

610 IFT=60THEN700 
620 G0SUB1200 

630 POKEV, W:POKEV+G,D(W-J):V»V+DD:W=PEEK 
( V ) : POKEV , 60 : P0KEV + G,7 
640 IFDD r =40ANDPEEK(V + 40)=64THENDD = DD(INT 
( RN D ( 0 ) * 2 ) ) : GOTO 66 O 
650 IFW=63THENDD=40 
660 IFW-58THEN700 
670 IFV<3992THEN280 
680 Y = Y + 1 : I F Y = 1 2THEN220 
690 POKEV , 62 : GOTO260 
700 R EM * * I L GIOCATORE MUORE** 

710 S0=800 : IFT=60THENT=W 
720 T 1 =T 

730 SOUND 1 , SO , 3 : IFPEEK(S+40 ) < > 6 4 AN DS < 3 9 9 
2THEN7 50 
740 G0T07 6 0 

750 POKES , T : POKES+G, D(T-J ) : S = S + 4 0 : T = P E E K 
(S) :P0KES,58:P0KES + G,0 
760 S0 = S0-5 : I FSO > 60 OTH EN 7 3 0 


Utilizzo e 
strategia 

Il movimento del giocatore 
è comandato dal joystick in 
porta uno o dai tasti “Y”, 
“G”, “H” e “B” per il movi- 
mento nelle quattro dire- 
zioni possibili e dalla barra 
spaziatrice (o dal pulsante 
di fuoco) per effettuare un 
salto. Il salto vi serve o per 
andare da una trave all’al- 
tra 0 per evitare qualclie 
sacco di cemento (cosa che 
frutta un bonus di 1000 
punti). Ricorda che il salto 
avviene lungo la direzione 
di provenienza. 

Ogni livello di gioco si pre- 
senta con 12 borse da recu- 
parare e 12 sacchi che roto- 
lano giù uno alla volta lun- 
go percorsi casuali: bisogna 
prendere le borse (che frut- 
tano 250 punti l’una) prima 
che siano caduti tutti i sac- 
chi, pena il partire daccapo. 
La difficoltà cresce con i li- 
velli dove aumentano i qua- 
dri con travi interrotte e le 
scale rotte in due: non è fa- 
cile andare avanti a lungo, 
nonostante si guadagni 
una vita ogni 10000 punti! 
I sacchi di cemento rotola- 
no giù incessantemente e 
ogni tanto scendono dalle 
scale; è quindi pericoloso 
starci proprio sotto, anzi la 
cosa migliore e quella di 
mettersi, in caso di perico- 
li 


lo, sotto una trave tronca, 
ove i sacelli non possono ar- 
rivare. È inoltre troppo pe- 
ricoloso tentare di saltarli 
poiché quasi sempre si fini- 
sce col perdere una vita 
preziosa. 

Un gioco di velocità e pron- 
tezza grazie alla sua impre- 
vedibilità, non stanca mai. 
E mai possibile avere dei 
colleghi di lavoro così di- 
stratti? 

Commenti al 

listato 

100-150 salta alla routine 
di modifica della grafica 
standard. 

160-210 inizializza le varia- 
bili principali. 

220-260 disegna il quadro 
di gioco, posizionando a ca- 
so il giocatore. 

270-570 accetta un input 
dall’utente ed esegue razio- 
ne corrispondente. 

580-620 mette il giocatore 
nella nuova posizione e va- 
luta se ha preso una borsa 
(incrementando in tal caso 
il punteggio) o se è stato 
colpito dal sacco di cemen- 
to. Infine valuta se è il caso 
di assegnare una vita in 
più. 

630-690 decide la posizione 
successiva del sacco che sta 
scendendo, poi torna alla ri- 
chiesta di input. 
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770 

REM * *SE NON SI HANNO PIU’ VITE, FINI 

SCE IL GIOCO* * 


780 

CH=CH- 1 :IFCH=-1THEN1330 


790 

REM * *STAMP A IL PUNTEGGIO** 

, 

800 

PRINT" {HOME} { R VS ON } "TAB ( 25 ) CH : POKE V 
, W : POKEV + G , D ( W- J ) : Y = Y + 1 


810 

IFW-58THENP0KEV,T1:P0KEV+G,D(T1-J) 


820 

REM**TORNA ALL’INIZIO, A SECONDA DEI 



CASI** 


830 

IFY > 1 0THEN220 


840 

IFS>3991 THENPOKES ,T: G0T0240 


850 

POKES ,58:POKES+G,0: G0T0260 


860 

I F Y = 1 1THEN920 


870 

FORN = Y+ 1 T01 1 : POKE31 71 +B(N) , 62 :SS = SS + 



1 00 : PRINT” {HOME } {RVS ON } "T AB ( 8 -LEN ( S 



TR$ ( SS ) ) )SS 

880 

GOSUB1 200 : NEXT 


890 

REM * * IL GIOCATORE HA RIPULITO IL QUA 



DRO** 


900 

S0UND2,169,10:S0UND2,262,10:S0UND2,3 



45,15 


910 

F0RHH=1 T0240 : NEXT :S0UND2, 345 , 1 0 :S0UN 

' 


D2 , 1 69 , 30 


920 

E2=E2+.05:SC=SC+1 :E1=E1+1 : IFE 1 > 8THEN 

' 


E 1 =8 


930 

GOT0220 


940 

REM**ROUTINE DI DISEGNO DEL QUADRO D 



I GIOCO** 


950 

PRINT" {CLR} {PURPLE} " ; : FORN* 1 T022 : PRI 



NTA$ : NEXT : PRINT A $ " {HOME}” 


960 

B $ = " > { 3 8 SH *}" 


970 

PRINT" { 3 CUR .GIU} "TAB( 1 5 )”?>>>>>>>>? 



{RED}" : PRINTTABC 1 5)" {SH A} {PURPLE} {8 



SH * } { RED } { SH A}" 


980 

PRINTTAB(15)"{SH A }>>>>>>>>{ SH A}":P 



RINTTAB(15)"{SH A }>>>>>>>>{ SH A}{PUR 

PLE}" 


990 

FORNAI T03 :PRINTB$" {4 CUR . Gl U } " : NEXT : 



PRINTB$" {HOME}" ; : POKE4031 , 62 


1000 

PRINT" {RVS ON}"TAB(8-LEN(STR$ (SS) ) ) 

SS ;TAB(25)CH ;TAB( 31 )SC : POKE 31 02 ,163 


1010 

FORN=0TO1 1;P0KE3171+B(N),60 


1 020 

POKE31 71 +B(N)+G ,7 : NEXT : F0RN = 3392T0 3 
992STEP200 :IFN = 399 2THEN1 090 


1030 

F0R0=1 T03 


1040 

R = N+1+INT(RND(0)*38):IFPEEK(R)O64T 

HEN1 040 


1050 

FORM=RTOR+1 60STEP40 : POKEM , 65 : P0KEM + 

G , 0 : NEXT 


1060 

IFO>1 ANDRND (0 XE2THENP0KER + ( INT ( RND 



(0)*2)+2)*40,63 


1 070 

IFRND (0 )< .5ANDPEEK(R-40 )=62THENP0KE 
R-40,63 


1080 

NEXT 


1090 

F0R0= 1 TOE 1 


1100 

R=N+3+INT(RND(0)*36) 

I 

1110 

IFPEEK(R )<>640RPEEK(R-40 )<>620RPEEK 
(R+1 ) =620RPEEK ( R- 1 X62THEN1 1 30 




1 1 20 

POKER, 62:P0KER-40, 63 


1 1 30 

NEXT 


1 1 40 

FORO* 1 T04 


1 150 

R=N“39+INT(RND(0)*38):IFPEEK(R)<>62 
ORPEEK(R+40)«62THEN1 1 50 


1 1 60 

POKER, 61 :POKER+G,0:NEXT:NEXT 


1 1 70 

POKE31 70,63 :POKE3 173, 6'3:POKE3 209, 63 
: POKE32 14,63 


1 1 80 

FORN-3352TO3952STEP200:P0KEN,63:NEX 

T:FORN-3391T03991STEP200:POKEN,63:N 



EXT 


1 1 90 

RETURN 


1210 

IFSS>*Q*E3THENCH*CH+1 :E3«E3 + 1 SPRINT 
"(HOMEHRVS ON}»'TAB(25)CH 


1 220 

RETURN 


1230 

REM**LEGGE ROUTINE IN LINGUAGGIO MA 
CCHINA PER TRASFERIRE** 


1240 

REM* * I CARATTERI DA ROM A RAM, E LA 



ESEGUE** 


1250 

A =81 9:FORT«0TO17:READB:POKEA+T,B:NE 



XTsSYSA 


1 260 

FORI =0T01 1 :READB(I):NEXT 


1 270 

REM**POSIZIONA LA NUOVA MAPPA CARAT 

TE R I IN 1 2288** 


1 280 

POKE6529 8 , 1 92 : POKE652 99 ,1 92 + 4*1 2 


1 290 

REM**DEFINISCE I NUOVI CARATTERI** 


1 300 

A-1 2288 


1310 

FORI = A+58*8TOA+65*8+7 : REA DM : POKEI ,M 
: NEXT I 


1 320 

RETURN 


1330 

REM* «MOSTRA IL PUNTEGGIO E PROPONE 
UN'ALTRA PARTITA** 


1 340 

SCNCLR : PRINT"IL TUO PUNTEGGIO E' 

SS 


1350 

P R I N T " { 6 CUR.GIUJUN' ALTRA PARTITA ( 

S/N) ?" 


1 360 

GETKE YA$ 


1 370 

IFA$*"S"THENRUN1 00 


1 380 

IFA$<>"N»THEN1 360 


1 390 

REM**RESET DEI PARAMETRI MODIFICATI 
* % 


1 400 

SCNCLR : POKE65 298 , 1 96 : POKE65 29 9 , 20 8 : 
POKE55 , 0 : POKE5 6 , 63 : PRINTCHR$ ( 9 ) 


1410 

PRINT" CIAO ! " : EN D 


1 420 

REM**DATI UTILIZZATI DAL PROGRAMMA* 

K 


1 430 

DAT A 1 60, 0,1 85, 0,208, 1 5 3, 0,4 8, 1 85,0, 

209,1 5 3,0,4 9,200,20 8,241 ,96 


1440 

DATA , 1 ,39,40,41,42,78,79,80,81,82,8 


1450 

D 

DATA60, 60 ,25 ,255 , 1 88 


1 460 

DATA 60, 36, 231 ,3,4,24,24,60,126,126, 

60, 60, 66, 1 65, 153, 153, 165, 66, 60 ,, 24, 

36 


1 470 

DATAI 26 ,1 26,1 26 


1 480 

DATAI 26 ,,,,,,,,,,,,,,,,, 


1490 

DATA25 5, 255 ,153, 102, 102, 153,255,255 
,195,255,255,195,195,255,255,195 


700-850 routine che gesti- 
sce il caso in cui il giocatore 
sia stato colpito da un sacco 
o sia caduto: stampa il pun- 
teggio, decrementa il nu- 
mero delle vite e torna al- 
l’inizio. 

860-930 il giocatore ha ri- 
pulito il quadro: vengono 
assegnati 100 punti per 
ogni sacco non ancora cadu- 
to e viene incrementato il 
numero di livello. 

940-1190 routine di dise- 
gno del quadro di gioco: su 
ogni piano vengono messe 
4 borse, mentre il numero 
di “buchi” varia con l’au- 
mentare del livello. 
1200-1220 routine di valu- 
tazione del punteggio per 
l’assegnazione di una vita 
aggiuntiva. 

1230-1320 routine di modi- 
fica del set di caratteri: i ca- 
ratteri standard vengono 
copiati, mediante una velo- 
ce routine in linguaggio 
macchina in area RAM e poi 
vengono in parte ridefini- 
ti. 

1330-1410 finita la partita 
mostra il punteggio e ne 
propone un’altra. 

1420-1490 dati utilizzati 
dal programma 

Tratto da: 

“Il libro dei giochi per Com - 
modore 16 e Plus/4 9 
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♦Volete confrontarvi con il 
C16 in un gioco di intelli- 
genza? Ecco Othello, che 
metterà a dura prova la vo- 
stra abilità e capacità di 
concentrazione. Il pro- 
gramma non prevede le 
istruzioni per il gioco, in 
quanto quest’ultimo è di- 
ventato tanto popolare che 
la maggior parte di voi let- 
tori lo conosceranno. Co- 
munque, per chi ancora 
fosse all’oscuro, ecco una 
breve spiegazione delle re- 
gole. Si gioca su di una scac- 
chiera di 8x8 caselle al cui 
centro sono disposte alter- 
nate due pedine di colore 
bianco e due di colore nero. 
A turno, ciascun giocatore 
depone una pedina del pro- 
prio colore, in modo da im- 
prigionare almeno una pe- 
dina avversaria fra quella 
deposta e un’altra del pro- 
prio colore già presente sul- 
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102 REM VARIABILI INIZIALI 

103 REM 

104 REM 

110 DIMAS (99) , BS(7) , C % ( 99 ) , D% ( 99 ) 

120 F0RI=0T07 : READBSC I ) : NEXT 
1 30 FORI=1T04:FORJ=1TO8:READX:Y=I*10 + J 
140 AS(Y)=X:AS( (4“I)*20 + Y+10)=X:NEXT : N £ X 
T 

150 M $ =* " (HOME) {22 CUR . Gl U } " : DF- 3 1 7 2 : DC »2 
1 48 

160 N $ = " (37 SPC}" 

170 VOL 8 

200 REM 

201 REM INIZIO GIOCO 

202 REM 

203 REM 

204 REM 

210 FORI = OT099 : C % ( I )=0 : NEXT 
2 20 F0RI-0T09 : CS( I ) = 9 : C S ( I + 9 0 ) = 9 :NEXT 
230 F0RI-1 T08 : C % ( 1*1 0)=9:CS( 1*1 0 + 9 )-9: NE 
XT 

240 CS(44)=16:CS(45)»127:CS(54)=127:CS(5 
5 ) = 1 6:G = 2:C = 2:PG=*l6:PC = l6 
250 COLORO, 6, 5:C0L0R4, 6,5 
260 PRINT" (CLR)CON QUALE COLORE GÌOCHI? 
(B/N )" 

27 0 GETZ$ : I F Z $ < > " B " AN D Z $ < > " N " TH EN 27 0 
280 IFZ$ = "B n THENPG=1 27 : ELSEPC=1 27 
290 PRINT"LI VELLO GIOCO? (1/2)" 

295 GETZ$ : IFZ$<>" 1 " ANDZ$< > " 2 "THEN295 

296 LV = ASC ( Z$ ) - 48 

300 PRINT" {CLR}" ;TAB(5)" 0 T H E L L 0";T 
A B ( 4 4 ) " { 1 5 SH E}" 




L 




310 

PRINTTAB(22)"1 2 3 

4 5 

6 

7 8 " , T A B ( 2 1 


)"{CBM A } { SH C } {CBM 

R ) { 

SH 

C} {CBM R} { 


SH C } { CBM RHSH C } { 

CBM 

R) 

{SH C} {CBM 


R} {SH C} {CBM R} {SH 

c } { c 

BM 

R} {SH C } { C 


BM S}" 




320 

FORI-1 T07 : PR I NTT A B ( 

20 ) C 

HR 

$(64 + I) ; " {S 


H -} {SH ~ } {SH -} 

{SH 


{SH -} {SH 


-} {SH -} {SH -} { 

SH - 

}" 

; CHR $ ( 6 4 + I ) 

330 

PRINTTABC 21 )" {CBM Q 

} {SH 

C 

} { SH + } { SH 


C} {SH + } { SH C } { SH + 

} {SH 

C 

} {SH + } {SH 


C} {SH +} {SH C} {SH + 

} {SH 

c 

} {SH + } {SH 


C} {CBM W } " : N E X T 




340 

PRINTTAB(20)"H{SH - 

} {SH 

“} {SH -} { 


SH -} {SH -} {SH -} 

{SH 

- 

} {SH -} {S 


H -}H” , T A B ( 2 1 )" {CBM 

z}{ 

SH 

C} {CBM E} { 


SH C} {CBM E} {SH C > { 

CBM 

E} 

{SH C } {CBM 


E} {SH C} {CBM E} {SH 

C} {CBM 

E} {SH C) {C 


BM E} {SH C} {CBM X } " 




350 

PRINTTAB(22)” 1 2 3 

4 5 

6 

7 8" : P0KE35 


00,81 : P0KE3502 , 8 1 




360 

P0KE3580.81 :P0KE3582,81 

: P0KE2 4 7 8 , 1 27 


: POKE2556 , 1 27 




370 

PRINT" {HOME} {5 CUR. 

GIU } 

ii . 

" CI 6 {SH Q 


} =" ;C,TAB(201 )"TU{ 

2 SPC} 

{SH Q) = " ; G 


: PO KE 22 5 3 , PC: P0KE2453 , PG 


380 

PRINTTAB(241 OLIVELLO: 

ti . 

LV 

900 

IF PG- 1 27THEN2000 




100C 

) REM 




1 001 

REM 




1002 

! REM MOSSA DEL GIOCATOR 

E 


1 003 

1 REM 




1 005 

i REST0RE( 1 01 00 ) 







la scacchiera. Se ciò non è 
possibile il turno passa al- 
l’avversario. Le pedine av- 
versarie imprigionate di- 
ventano pedine del proprio 
colore. Il gioco termina 
quando tutta la scacchiera 
è completata, oppure quan- 
do nessun giocatore può 
più effettuare la mossa. 
Vince chi alla fine della 
partita ha più pedine del 
proprio colore. 

L’inizio della gara spetta 
sempre al nero; pertanto se 
volete far iniziare la partita 
al vostro C16, dovrete sce- 
gliere il colore bianco. Vi 
accorgerete presto che non 
è tanto facile battere il com- 
puter. I livelli di abilità so- 
no due: 1. normale, 2. esper- 
to. 

L’inserimento della mossa 
da parte del giocatore av- 
viene mediante le coordina- 
te della posizione in cui si 
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vuole deporre la pedina ea 
il computer è in grado di 
stabilire se il giocatore può 
effettuare la mossa succes- 
siva, o deve passare il tur- 
no. Colori e suoni rendono 
più interessante il gioco. 
Per i primi abbiamo scelto 
quelli classici del gioco 
stesso: nero e bianco per le 
pedine, verde per la scac- 
chiera. Per quanto riguarda 
il suono, le routine musica- 
li sono situate nei DATA 
dalle linee 10100 in poi. Se 
a qualcuno non dovessero 
piacere i motivi scelti, può 
tranquillamente sostituirli 
variando le note riportate 
in tali DATA. Un’altra va- 
riazione che si può apporta- 
re è quella relativa alla 
pressione di un tasto per la 
mossa del computer. Tale 
attesa è data dalla riga 
2020. Sopprimendo o iso- 
lando tale riga e togliendo 
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1 006 READX , Y : IFX-0THEN1 005 
1 007 SOUND 1 ,X ,Y 

1010 PRINTM$ ; "INSERISCI LA TUA MOSSA (LE 
T/NUM ) {5 SPC}" 

1 020 GETZ$: I F Z$ < " A " OR Z $ > "H " THEN 1 00 6 
1030 S»(ASC(Z$)-64)*10 

1 0 35 READX, Y: IFX = OTHENRESTORE( 101 00) : GOT 
01035 

1036 S0UND1 , X , Y 

10 40 GET Z$ : I F Z $ < " 1 "0RZ$>"8"THEN1 035 
1 0 50 S*S+ASC(Z$)-48:PA*PC:PP=PG:M=0 
1070 PRINTM$;N$: GOSUB7000 :IFMOOTHEN1 100 

1080 PRINTM$; "MOSSA NON PERMESSA - RIPET 
I" 

1 090 FORI* 1 00TO70 OSTE P- 25 : SOUND 1 ,S,5:NEX 

T : G0SUB6900 : GOT0 10 05 

1100 P-S:N-1 :GOSUB6800:GOSUB6900:GOSUB60 
00 

1110 C-C-N+1 : G-G+N: IFC+G-64THEN4000 
1 1 20 GOSUB67O0 

2000 REM 

2001 REM 

2002 REM MOSSA C 1 6 

2003 REM 

2004 REM 

2010 PP-PC: PA=PG: PRINTM$; "PREMI UN TASTO 
PER LA MIA MOSSA" 

2015 FORI=650T0850STEP50 :S0UND1 ,I,5:NEXT 
2020 GETZ$: IFZ$=""THEN2020 
2030 PRINTM$ ;N$ :ONLVGOSUB2500, 3000 
2040 IFQOOTHEN21 00 

2050 PRINTM$; "PASSO IL TURN0{22 SPC}" 

20 60 FORI* 1 000T0700STEP-25: SOUND 1 ,1,5: NE 
XT: GOSUB6900:GOT02200 
2100 PR INTM$ ; " LA MIA MOSSA E’ "; 

2110 PRINTCHR$(INT(Q/10-) + 64) ;CHR$(Q-INT( 
Q/1 0)*10+48) 

2115 F0RI = 70 0T095 0STEP50 : SOUND 1 , 1 ,5 :NEXT 
2120 S = Q : P = Q : N* 1 : GOSUB68O0 : GOSUB6 900 : GOS 
UB6000 

21 30 C*C + N : G = G-N+ 1 : G0SUB6700 : IFC + G*64THE 
N 4 000 

2200 REM 

2201 REM 

2202 REM CONTROLLA SE IL GIOCATORE 

2203 REM PUÒ’ MUOVERE 

2204 REM 

2205 REM 

2210 M*0:PP = PG:PA = PC.:F0RS=1 1 T088 : G0SUB70 
00 : IFMO0THEN2400 
2215 NEXT : IFQ-0THEN4000 

2220 PRINTM$" PASSI IL TURNO" : S0UND1 , 5 1 6 , 
60 

2 2 30 FORI * 1 T02: G0SUB6 900 : NEXT: GOT02000 
2400 GOT0 1 000 

2500 REM 

2501 REM 




_ — 


2502 REM SUBROUTINE SCELTA MOSSA 

2503 REM C 1 6 AL 1 LIVELLO 
250-4 REM 

2505 REM 

2520 Q«0:F0RS«1 1 T08 8 : IFC * ( S ) < >0THEN2590 
2530 IFA/t(S)<A>t(Q)THEN2590 
2560 M»0 : GOSUB701 0 

2570 IFA*(M)-A*(Q)ANDRND(0)< .5THENQ-M 
2580 IFA*(M)>A*(Q)THENQ-M 
2590 NEXTjRETURN 

3000 REM 

3001 REM 

3002 RfeM SUBROUTINE SCELTA MOSSA 

3003 REM C 1 6 AL 2 LIVELLO 

3004 REM 

3005 REM 

3010 FORI - 1 1 T088:D*(I)-C*(I) sNEXT 
3020 Q2--9 :PM-0;FORK-1 1T088:IFC£(K)<>0TH 
EN31 30 

3030 S-K:M-0:GOSUB701 0: IFM-0THEN31 30 
3050 F0RI*0TO7 :P»M+Bj(I) :IFCf(P)OPATHEN 


31 00 

3060 P=P + B/5(I) :IFC*(P)=PATHEN3060 
3070 IFC$(P)OPPTHEN31 00 
3080 P- P-B% ( I ) :C$(P)=PP:IFP = MTHEN3100 
3090 G0T03080 

3100 NEXT : M 1 =M : PA=PC : PP=PG:Q=0 : GOSUB2500 
3105 I FQ=0THEN3 1 40 

3110 M«Ajt(M1)-AZ(Q) : IFM>Q2THENQ2=M: PM = M1 
3120 FORI-1 1T088:C%(I)-D%(I) : NEXT 
3130 PP=PC:PA=PG:NEXT:Q=PM: RETURN 
3140 FORI-1 1T088:C*(I)-D%(I ) : NEXT 
3150 PP=»PC:PA = PG:Q = M1: RETURN 

4000 REM 

4001 REM 

4002 REM FINE PARTITA 

4003 REM 

4004 REM 

4020 IFG>CTHENPRINTM$ ; " BRAVO - HAI VINT 
0 "N$ 

4030 IFC=GTHENPRINTM$ ; » STAVOLTA SIAM PA 
RI "N$ 

4040 IFC>GTHENPRINTM$; U H 0 { 4 SPC}V I N 
T 0 ! ! ! "N$ 

40 50 FORI = 1 T02: RESTOREO 0 200 ) : DO: READX,Y 
: SOUND 1 , X , Y 

4060 L00PUNTILX=0 :NEXT : G0SUB6900 
4070 PRINTM$» GIOCHI ANCORA? (S/N)»N$ 

4080 GETZ$ : IFZ$="S"THEN200 

4090 IFZ$O n N" THEN4080 

4100 PRINT"C I A 0 !":END 

4500 PRINTM$; » {RVS ON}H 0 { 4 SPCjVINTO !! 

! {RVS OFF}» 

6000 REM 

6001 REM 

6002 REM AGGIORNAMENTO SCACCHIERA 

6003 REM 




eventualmente la scritta 
“PREMI UN TASTO PER LA 
MIA MOSSA” (riga 2010), il 
gioco diventerà più spedi- 
to. 

E per finire uno sguardo al- 
le variabili utilizzate: 
A%(99) Matrice contenente 
i valori delle caselle della 
scacchiera, in base ai quali 
il C16 sceglie la mossa da ef- 
fettuare. 

B%(7) Matrice contenente 
le otto direzioni possibili 
sulla schacchiera. 

C%(99) Matrice contenente 
la gestione del gioco: % = ca- 
sella libera, 16 = casella con 
pedina nera, 127 = casella 
con pedina bianca, 9 = bor- 
do della scacchiera. 

D%(99) Matrice che duplica 
la C%(99), indispensabile 
per la scelta della mossa del 
C16 al secondo livello di 
gioco. 

C Contatore pedine del 
19 


C16. 

G Contatore pedine gioca- 
tore. 

PC Valore pedine C16 
(bianca = 127, nera = 16). 
PG Valore pedine del gioca- 
tore (vedere sopra). 

PP Pedina propria. 

PA Pedina avversaria. 

S Mossa del giocatore. 

M Variabile di controllo 
della validità della mossa 
scelta. 

Q Variabile di scelta mossa 
C16 al primo livello. 

Q2 Variabile di scelta mos- 
sa C16 al secondo livello. 
PM Possibile mossa C16 al 
secondo livello. 

LV Livello gioco. 

Tratto dalla rivista 
SUPERCOMMODORE 4/85 


600*1 REM 

6010 FORI=0TO7 : P=S+B*( I ) : I FC % ( P ) < >PATHEN 
6100 

60 20 P = P + B$(I) :IFC>t(P)=PATHEN6020 

6030 IFC*(P)OPPTHEN6lOO 

6040 P-P-BZ(I) :IFP-STHEN6100 

6050 GOSUB6800: C% (P ) =PP : N = N + 1 :GOT06040 

6100 NEXT : C56 ( S ) = PP : RETURN 

6700 PRINT" {HOME} {5 CUR.GIU}{8 CUR.DESH 

3 SPC } { 3 CUR. SIN}" C:PRINT" {HOME} {10 
CUR . GIU } { 8 CUR . DES } { 3 SPC } { 3 CUR.S 

IN } "G : RETURN 

6800 D=INT(P/10)*80+2*(P-(INT(P/10)*10)) 
6810 POKE ( DF+D ) ,81 :POKE(DC+D) , PP: RETURN 
6900 FORI«1T01000:NEXT:RETURN 

7000 REM 

7001 REM 

7002 REM SUBROUTI NE CONTROLLO 

7003 REM VALIDITÀ’ MOSSA 

7004 REM 

7005 REM 

7006 IFC* (S)OOTHENRETURN 

7010 F0RI*0T07 :P=S+B$(I) : IFC* ( P )<>PATHEN 
7050 

7020 P*P + B/6(I) :IFC/6(P) = PATHEN7020 
7030 IFCJ (P)OPPTHEN7050 
7040 M = S : RETURN 
7050 NEXT : RETURN 

10000 REM 

10001 REM 

10002 REM DATA 

10003 REM 

10004 REM 

10010 DATA- 11 ,-10,-9,-1,1,9,10,11 

10020 DATA9,2,8,6,6,8,2,9 

10030 DAT A 2 , 1 ,3,4, 4 ,3, 1 ,2 

10040 DATA8,3,7,5,5,7,3,8 

10050 DATA6,4,5,0,0,5,4,6 

10100 DATA8 34, 14, 7 9 8, 14, 8 3 4, 28, 101 5,1 ,83 

4 , 1 4,798, 1 4,834,28 

10110 DATA854 , 14,834,14,810,14,798,14,77 
0,14,798,14,810,14 

10120 DATA798,7,810,7,834,1 4,739,14,1015 
,1 ,739,28,1 01 5,1 

10130 DATA7 3 9, 7, 770, 7, 798, 7 ,810,7,834,28 
10140 DATA854, 14, 770, 14, 1015,1 ,770,14,81 
0,14,798,14,770,14,739,28,0,0 
1 0 200 DATA881 ,16,854,16,810,16,1015,1 ,81 
0,8,1015,1,810,16,739,16,854,16,83 

4.32 

10210 DATA7 39, 16, 85 4, 16, 83 4, 32, 7 39,1 6,83 

4.16.810.32 

1 02 20 DAT A88 1 ,16, 85 4, 16, 810, 16, 1015,1 , 81 
0,8,1015,1,810,8 

1 02 30 DATA 7 39 ,16,85 4, 16, 834, 32, 739, 16, 85 
4,16,834,16,739,16,810,40,810,8,0, 

0 


K 


j 
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Mobili 



Ecco un programma che 
sfrutta in pieno il magnifi- 
co linguaggio BASIC grafico 
del Commodore 16. 

Il nome già dice lo scopo del 
programma: serve a far rap- 
presentare sullo schermo 
una serie di mobili da cuci- 
na (basi e pensili) per com- 
porre una parete. Oltre che 
disegnare una serie di mo- 
bili con caratteristiche 
omogenee (stessa profondi- 
tà, stessa altezza), il pro- 
gramma permette di rap- 
presentare dei volumi con 
larghezza, altezza e profon- 
dità scelte a piacere. Gli 
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unici elementi che reste- 
ranno fissi in tutto il dise- 
gno, oltre all’allineamento 
delle basi e dei pensili, sono 
l’altezza dello zoccolo e lo 
spessore del piano delle ba- 
si. 

Molte delle richieste di im- 
missione dei vari parametri 
danno già delle risposte 
predefinite o suggerite, che 
potrete comunque sempre 
variare prima di premere 
RETURN. 

Vediamo ora come si usa il 
programma. Subito dopo 
l’avvio, compare una scrit- 
ta che ci ricorda che le mi- 
sure vanno espresse in cen- 
timetri, e quindi la richie- 
sta relativa all’altezza dello 
zoccolo delle basi (15 cm) e 
allo spessore del piano delle 
stesse (risposta suggerita 3 
cm). Questi sono i dati che 
resteranno fissi per tutto il 
programma. Si passa poi al- 
le misure dei vari elementi, 
cominciando da quelli che 
si devono allineare a terra, 
cioè le basi. La richiesta del- 
la larghezza non presenta 
risposte suggerite. Di solito 
la larghezza dei mobili da 
cucina è in multipli di 15, a 
partire da 45 cm (45, 60, 90, 
120). Scelta la larghezza 
della base, viene richiesta 
la profondità. Per le basi 
viene suggerita una pro- 
fondità di 60 cm; quando in- 
vece si passerà ai pensili la 
risposta predefinita sarà di 
35 cm. Anche l’altezza del 
corpo centrale della base 
viene suggerita (72 cm); per 
i pensili invece verrà sug- 
gerita un’altezza di 60 cm. 
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Una volta immessi questi 
valori si passa alla scelta 
delle opzioni per il frontale. 
Tre di queste (Anta sini- 
stra, Anta destra, Due An- 
te) sono comuni alle basi e 
ai pensili, mentre “Forno” e 
“Cassetti” sono riservati al- 
le sole basi, e “Cappa” ai soli 
pensili. La risposta predefi- 
nita è 0, corrispondente ad 
un frontale privo di dise- 


gno (per rappresentare ad 
esempio un frigorifero). I 
pomelli di apertura delle 
ante nel disegno vengono 
posizionati automatica- 
mente in alto o in basso a 
seconda che si tratti di basi 
o di pensili. Se stiamo for- 
nendo i dati relativi al dise- 
gno di una base, viene poi 
chiesto se si vuole un ripia- 
no normale o un lavello. 


10 X=0 : Y = 0 : SCNCLR : PRINT"MISURE IN CM" 

20 PRINTSPC ( 1 6 ) ; 1 5 : INPUT" {CUR .SU } ALTEZZA 
ZOCCOLO" ; A 

30 PRINTSPC ( 1 5 ) ; 3 : INPUT" { CUR . SU } SPESSORE 
PIANO" ; B 

40 GRAPHIC1 , 1 : DRAW , 0 , 1 84T01 0 , 1 84 
50 GRAPHICO , 1 

60 PRINT"BASE: " : GOSUB70 : GOTO 20 0 
70 INPUT "LARGHEZZA" ;L: IFLO0THEN90 
80 IFA=0THEN660 : ELSE630 
90 I F L > 0 T HE N 1 2 0 

100 GRAPHIC1 : LOCATE + X , +0 : I F A = 0THENL0CATE 
-L-X , +0 : ELSEDRAWTO-L-X , +0 
1 1 0 X = 0 : Y = 0 : G0T0600 

120 IFA=OTHENPRINTSPC(9);35:ELSEPRINTSPC 
( 9 ) ; 60 

130 INPUT" {CUR .SU } P R 0 F 0 N D . " ; P : IFA=OTHENP 
RINTSPC (11) ; 60 : ELSEPRINTSPC ( 1 1 ) ; 72 
140 INPUT" {CUR . SU } ALT . CORPO" ; C : PRINT 
150 IFA=0THENQ=C-1 2:ELSEQ=0 
160 PRINT " FRONTALE " :PRINT " 0 = NULLA "," 1=AN 
TA S.", 

170 PRINT" 2 = ANTA D.","3-2 ANTE" , : I F A = 0TH 
ENPRINT"6=CAPPA" : GOTOI 90 
180 PRINT "4 = FORNO", "5 = C ASSETTI" 

190 PRINT" {2 SPC}0" : INPUT" {CUR . SU } " ;F:RE 
TURN 

200 PRINT : PRINT" PIANO SUP PRINT" 1 =NORM 
ALE" , "2 = LAVELLO" 

210 P R I N T " { 2 SPC } 1 ": INPUT" {CUR .SU D 
230 GRAPHIC1 : LOCATE+O ,-Y : H = C + A + B : IFY<HTH 
ENDRAWT0+0,-H+Y : ELSELOC ATE+0 ,-H+Y 
240 Z-INTCP/4) :W=Z-X: IFW<OANDY>=HTHENLOC 
ATE + Z-W ,+Z + H-W: GOTO 270 
250 IFW<OANDY<HTHENDRAWTO+Z, +ZTO+0 , +H-Y: 

LOCATE-W ,-W + Y: G0T0270 
260 IFW>=OANDY>HTHENLOCATE+X , +X:DRAWTO+W 
, +WT0+0 , +HTO-W ,-W: ELSEDRAWTO+Z , +ZTO+ 
0 , +HTO-W ,-W 


É 


ì 
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270 LOCATE+W, +W-A :IFW>OTHENDRAWTO-W,-W:E 
LSELOCATE-W.-W 
280 LOCATE+W, +W-C 

290 IFH-B>YTHENDRAWTO-Z ,-Z: LOCATE +Z , +Z-B 
: GOTO 3 30 

300 IFW>OTHENDRAWTO-W,-W: ELSELOCATE-W ,-W 
310 LOCATE+W, +W-B 

330 E- (X>Z) :G=(Y>H) :K«(H>Y) :M-W*E*K 
335 L0CATE+W*E+M,+0:DRAWT0+L-W*E-M , +0T0+ 
0,+HTO-L + W*E ,+0: LOCATE- W*E , -A 

3 4 0 LOCATE + W*E,+0:DRAWTO + L-W*E, + 0 : LOCATE 

+ 0,-C 

350 IFH-Z-B<«Y-XTHENU=W*E : ELSEU=W*E-Z*E* 
K 

360 DRAWTO-L+U,+0:LOCATE-U,+0 
370 IFF-2THENCIRCLE,+L-6, + 6 + Q,3,3 : LOCATE 
-L + 6 ,-3-Q 

380 IFF-1THENCIRCLE ,+6 ,+6+Q,3 ,3:LOCATE-6 
,-3-Q 

390 IFF =*6THENL0CATE + 1 0 , + 0 : DRAWTO- 1 0 , + C : L 
OCATE+L,+0:DRAWT0-10,-C:LOCATE-L+10, 
+ 0 

400 IFFO3THEN430 

410 L0CATE+INT(L/2) , +C : DR AWTO+O , -C : C I RCL 
E,-6,+6+Q,3»3:CIRCLE,+12,+3,3,3 
420 LOCATE-INT(L/2)-6,-3-Q 
430 IFFO4THEN460 

4 40 LOCATE + 0 , + 1 0 : DRAWTO + L , +0 : LOCATE- 5 ,+5 

: DRAWTO-L + 1 0 ,+OTO + O ,+C-20 

4 50 DRAWT0 + L-10, + 0TO + 0 , -C + 20 : LOCATE-L + 5 , 

-15 

460 IFFO5THEN510 
470 R* C : V» 0 

480 R=»R- 1 2 : V»V+ 1 :L0CATE + W*E, + 12:DRAWT0 + L 
- , W* E ,+0:CIRCLE ,-INT(L/2) ,-6,3,3 
490 LOCATE-L + INT (L/2) , +9 : IFRC-OTHENLOCAT 
E+0 ,-V*1 2: ELSE480 
510 LOCATE+L,-B: DRAWTO- Z , -Z 

5 20 IFY-H>XTHENDRAWTO-L-X*G, +0 rELSEDRAWT 

0-L-(Y-H)*G,+0 
530 IF DO2THEN570 

5 40 LOCATE + 5 , +2 : DRAWTO + Z-4 , +Z-4TO + L-6 , +0 
TO-Z+4 ,-Z+4TO-L+6 , +0 

550 LOCATE+INT(L/2)-6 , +Z-4 : DR AWTO+ 4 , - Z+ 4 
TO+Z-4 , + Z-4 

560 L0CATE-INT(L/2)+1-Z,-Z+2:D=0 
570 IFY-H>XTHENLOCATE + L + X*G , +H: ELSELOCAT 
E+L+(Y-H)*G,+H 
580 X-Z:Y=H 
600 GETKEYA$:L»0 
610 IFA=0THEN650 : ELSE50 

630 GRAPHIC 1 :LOCATE + X,+0:DRAWT031 9,1 84: L 
OCATEI 0 ,60 
640 X=0 : Y=0 : A*0 : B-0 

650 GRAPHICO , 1 : PRINT" PENSILE : " : GOSUB70 : G 
OT0230 

660 GRAPHICO, 1 
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Per i pensili, naturalmente, 
la richiesta non viene pre- 
sentata. Subito dopo aver 
immesso anche questo da- 
to, viene disegnato l’ele- 
mento e il programma si 
ferma sullo schermo grafi- 
co in attesa di istruzioni. 
Per proseguire basta tocca- 
re un tasto qualsiasi (ad ec- 
cezione di RUN STOP). 

Se si vuole continuare, ba- 
sta immettere le misure 
dell’elemento successivo 
per vederlo disegnare ac- 
canto al precedente. Se in- 
vece, anziché disegnare un 
elemento, si vuole lasciare 
uno spazio libero fra i mobi- 
li, basterà immettere un 
numero negativo (ad esem- 
pio - 60 ) in risposta alla ri- 
chiesta relativa alla lar- 
ghezza. 

Quando si è finito di dise- 
gnare le basi, per passare al 
tracciamento dei pensili ba- 
sterà battere il tasto RE- 
TURN, senza immettere 
niente alla richiesta relati- 
va alla larghezza. Si presen- 
teranno allora le richieste 
per le misure e le caratteri- 
stiche dei pensili. Si prose- 
gue come per le basi, finché 
il disegno non sia stato 
completato. Per finire e tor- 
nare allo schermo alfanu- 
merico, basta premere due 
volte RETURN. 

Tratto dalla rivista 
Bit n. 61 (5/85) 
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Istogrammi 


Sul Commodore 16 la grafi- 
ca si può ottenere in tre mo- 



di diversi: sullo schermo 
grafico ad alta risoluzione, 
sullo schermo grafico a me- 
dia risoluzione e sullo 
schermo alfanumerico a 
bassa risoluzione. La grafi- 
ca sullo schermo alfanume- 
rico è alla base di questo 
programma che permette di 
tracciare grafici a barre tri- 
dimensionali a colori e di 
grande effetto con un mini- 
mo di fatica dal punto di vi- 
sta della programmazione. 
L’utilizzo dei caratteri gra- 
fici sullo schermo alfanu- 
merico non solo offre effet- 
ti già pronti che sarebbe 
difficile ottenere sullo 
schermo grafico, ma rende 
possibile l’uso di una vasta 
gamma di colori e un note- 
vole risparmio di memo- 
ria. 

Il programma originaria- 
mente preparato per essere 
usato con il disco, è stato 
qui modificato per poterlo 
usare con il nastro. Sul na- 
stro potranno essere archi- 
viati i dati necessari per il 
tracciamento del grafico, e 
dal nastro tali dati potran- 
no essere richiamati quan- 
do necessario. 


Come funziona 

Appena si avvia il program- 


ma, viene chiesto se si vo- 
gliono caricare i dati dal na- 
stro. Se abbiamo già archi- 
viato dei dati, possiamo a 
questo punto richiamarli 
inserendo il nastro coi dati 
e rispondendo con “S” alla 
domanda. In questo caso il 
grafico comparirà sullo 
schermo non appena i dati 
saranno stati letti. 

Se invece è un grafico nuo- 
vo, basterà battere “N” (No) 


per andare avanti. Una no- 
ta ci ricorda che in vertica- 
le il grafico permette 19 se- 
zioni. La domanda successi- 
va (Quantità rappresentate 
da ogni sezione) indica il 
fattore per cui dovranno es- 
sere moltiplicati i valori 
che compariranno sullo 
schermo rappresentati sul- 
l’asse Y (verticale). Se i va- 
lori che dobbiamo rappre- 
sentare vanno ad esempio 


1000 REM******************************** 
1010 REM MODULO DI CONTROLLO 
1020 REM******************************** 
1030 GOSUB 2000 

1040 IF Q$="S" THEN GOSUB 6120 : ELSE GO 
SUB 3000 
1050 GOSUB 4000 
1060 GOSUB 5000 
1070 GETKEY A$ 

1080 CHAR ,0,24,»" 

1090 INPUT " {WHITE} REGISTRI I DATI (S/N) 
: " ; Q $ 

1100 IF Q $ = " S " THEN GOSUB 6000 
1110 SCNCLR : END 

2000 REM******************************** 
2010 REM INIZIALIZZAZIONE 
2020 REM******************************** 
2030 COLOR 0,11 : COLOR 4,10 : SCNCLR 

2040 CHAR , 1 3 , 1 , " (RVS ON } { R ED } GR AF I CO 3D" 
: PRINT 

2050 DIM HH ( 2 , 6 ) 

2060 R$=CHR$(13) 

20 70 C0$ = » {YELLOW} { GREEN } { PURPLE } » 

2080 INPUT " {BLACK} {CUR . GIU } DEVI CARICAR 
E I DATI DAL NASTRO (S/N):»;Q$ 

2090 RETURN 

3000 REM******************************** 
3010 REM ACCETTAZIONE DEI DATI 
3020 REM******************************** 
3030 SCNCLR 
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3040 CHAR , 1 3, 1 {RVS 0N } { RED JGRAFICO 3D" 
: PRINT 

3050 PRINT "{CUR.GIU} {BLACKJCI SONO 19 S 
EZIONI VERTICALI” 

3060 INPUT ” {CUR .GIU } {BLUE}QUANTITA' RAP 
PRESENTATE DA OGNI SEZIONE:";UV 
3070 INPUT ” {CUR .GIU }C0L0NNE (1-6):";ND 
3080 INPUT " {CUR .GIU JBLOCCHI (1-3):";NB 
3090 PRINT" {CUR . GIU } ******************* 

******************* ti 

3100 INPUT " {CUR .GIU} {RED }NOME DELL'ASSE 
ORIZZONTALE : " ; NH $ 

31 1 0 FOR 1=0 TO NB-1 

3120 PRINT " {GREEN }NOME DELL'ASSE VERTIC 
A L E : " ; I + 1 ; tINPUT NV$(I) 

3130 NEXT I 
3140 SCNCLR 
3150 FOR 1=0 TO NB-1 
3160 FOR J«1 TO ND 
3165 T = 20 *U V : DO UNTIL T/UV< = 19 
3170 PRINT " {CUR .GIUJVALORE BL0CC0";I+1" 
COLONNA" ; J ; " : '« ; 

3180 INPUT T 

3200 IF INT(T/UV)>19 THEN PRINT "{CUR. Gl 
U } VALORE TROPPO ALTO." 

3210 LOOP 
3220 HH( I , J )=T 
3230 NEXT J,I 
3240 RETURN 

4000 REM******* ************************* 
4010 REM DISEGNA LO SFONDO 
4020 REM******************************** 
4030 COLOR 0,1 

4040 SCNCLR 
4050 FOR 1=0 TO 3 

4060 CHAR ,5 + 1 ,20 + 1 ," {BROWN} {CBM * } { R VS 0 
N } { 29 SPC } {CBM * } {RVS OFF}" 

4070 NEXT 

4080 CHAR, 5,0," {WHITE} {30 CBM P}" 

4090 FOR 1=1 TO 19 
4100 CHAR ,5 , I , " {SH L}" 

41 10 CHAR, 34,1 , " { S H §}" 

4120 NEXT 

4130 FOR 1=4 TO 19 STEP 5 
4140 CHAR ,6 , I , " {28 CBM P}" 

4150 NEXT 

4160 CHAR ,0 ,24 , NH $ 

4170 FOR H = 0 TO NB-1 

4180 PRINT M I D $ ( CO $ , H + 1 , 1 ) ; 

4190 TT$ = NV$(H)+" *" + STR$(UV ) 

4200 FOR 1 = 1 TO LEN ( TT$ ) 

4210 CHAR, 36 + H,I,MID$(TT$, 1,1 ) 

4220 NEXT I,H 

4230 PRINT "{HOME} {3 CUR . DES } {4 CUR.GIU} 
1 5 { 2 CUR . SIN } {5 CUR . GIU } 1 0 { 2 CUR. SI 
N } { 5 CUR.GIU}5{CUR.SIN} {5 CUR.GIUjO 


da 2000 a 12000, dovremo a 
questo punto immettere il 
valore 1000. Nel grafico 
l’asse Y rappresenta dei va- 
lori che vanno da 0 a 19, in 
sezioni verticali unitarie. 
Se immettiamo 1000, potre- 
mo quindi far rappresenta- 
re valori che vanno da 0 a 
19000, fornendo i dati in ci- 
fra tonda (2000, 12000, 
ecc.), cioè in multipli del 
fattore immesso in prece- 
denza. Naturalmente, si po- 
trà scegliere anche un fat- 
tore che non sia una poten- 
za di 10, ma in questo caso 
le cifre rappresentate dal 
grafico non daranno dei ri- 
scontri immediati con i va- 
lori reali. È consigliabile, 
quindi, che le quantità rap- 
presentate da ogni sezione 
siano delle potenze di 10 (1, 
10, 100, 1000, ecc.). 

Viene poi la richiesta rela- 
tiva alle colonne, (che pos- 
sono andare da 1 a 6), e poi 
quella relativa ai blocchi 
che vanno da 1 a 3. Le colon- 
ne sono rappresentate in 
ordine sull’asse X (da sini- 
stra a destra), mentre i 
blocchi vengono posti l’uno 
davanti all’altro. Per que- 
sto motivo sarà necessario, 
se si usano più blocchi, im- 
mettere nei blocchi che 
stanno dietro la serie di va- 
lori più alti e in quelli che 
stanno davanti la serie di 
valori più bassi, altrimenti 
il risultato non sarà quello 
che ci si aspetta di vedere. 
Una volta immesso il nume- 
ro di colonne e il numero di 
barre desiderato, vengono 
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chiesti il nome dell’asse 
orizzontale (che di solito 
rappresenta delle unità di 
tempo) e quello dell’asse 
verticale dei vari blocchi. Si 
passa quindi ad immettere 
i dati per colonna e blocco. 
Ricordiamoci che la colon- 
na 1 è quella più a sinistra 
e che il blocco 1 è quello più 
arretrato. Una prova baste- 
rà a farvi capire come fun- 
ziona il programma. 

Se il grafico rappresentato 
vi soddisfa, lo potete archi- 
viare su nastro. Premendo 
il tasto RETURU compare la 
domanda “REGISTRI I DA- 
TI?” alla quale allora potre- 
te rispondere con “S” (Sì). 
Se i dati devono essere regi- 
strati, è necessario a questo 
punto inserire la vostra 
cassetta riavvolta. Il grafi- 
co verrà registrato sempre 
con lo stesso nome (GRA- 
PHDATA) e quindi qualun- 
que registrato in preceden- 
za su quella cassetta verrà 
cancellato. Se invece si vo- 
gliono dare dei nomi diver- 
si ai propri grafici, in modo 
da poterne archiviare più 
di uno per nastro, si dovrà 
aggiungere al modulo della 
memorizzazione la richie- 
sta del nome del grafico, sia 
per il richiamo, che per l’ar- 
chiviazione. 


Tratto dal libro: 
Commodore 16 Essenziali e 
Routines 


4240 RETURN 

5000 REM******************************** 

5010 REM DISEGNA I BLOCCHI 

5020 REM******************************** 

5030 FOR H = 0 TO NB-1 

5040 PRINT MID$(C0$,H+1 ,1 ) 

5050 FOR I-ND TO 1 STEP-1 
5'0 6 0 CHAR,8+4*(I-1 )+H,20+H,"" 

5070 DO WHILE INT ( HH ( H , I ) /UV ) < >0 
5080 FOR J = 1 TO INT ( HH ( H , I ) /U V ) 

5090. IF J»1 THEN PRINT " { BROWN } { RVS ON} 

• { CBM *}";MID$(C0$,H+1 ,1 ) ; " { CBM H} { 

RVS OFF} {CUR.SU} {4 CUR.SIN}"; 

5100 IF J>1 THEN PRINT "{CBM M} {RVS ON } 
{CBM G} {RVS OFF} {CUR .SU} {4 CUR.SIN 
}"; 

5110 NEXT J 

5120 PRINT "{CBM M}{CBM *}{RVS ON } {CBM 

* } n 

5130 EXIT : LOOP 
5140 NEXT I 
5150 NEXT H 
5160 FOR 1=0 TO ND-1 
5170 CHAR ,9 + 4*1 ,20, "" 

5180 FOR J=1 TO NB 

5190 IF J>1 OR HH ( 2 , 1 ) = 0 OR ( J = 1 AND ND = 
0) THEN PRINT "{BROWN}{RVS ON}{CBM 
*} {CUR.SIN}" ; 

5200 PRINT " {CUR. GIU} {CUR .DES}" ; 

5210 NEXT J,I 
5220 RETURN 

6000 REM******************************** 
6010 REM DATI SU FILE 

6020 REM******************************** 
6030 GOSUB6200:OPEN 1,1,1 , "GRAPHDATA" 
6040 PRINT#1 ,NB;R$;ND;R$;NH$;R$;UV 
6050 FOR 1=0 TO NB-1 
6060 PRINT/M , N V$ ( I ) 

6070 FOR J=0 TO ND 
6080 PRINT #1 , HH ( I , J) 

6090 NEXT J,I 

6100 PRINT//1 : CL0SE1 : GOSUB 6210 
6110 RETURN 

6120 G0SUB6200 : OPEN 1 , 1 , 0 , "GRAPHDATA" 
6130 INPUT# 1 ,NB,ND,NH$,UV 
61 40 FOR 1 = 0 TO NB--1 
6150 INPUT//1 , N V $ ( I ) 

61 60 FOR J = 0 TO ND 
6170 I N P U T # 1 , HH ( I , J ) 

6180 NEXT J,I 

6190 CL0SE1 : GOSUB 6210 : RETURN 
6200 PRINT : PRINT "MONTA IL NASTRO DEI 
DATI" : RETURN 

6210 PRINT : PRINT "{FLASH ON}RIAVVOLGI 
IL NASTRO {FLASH OFF}" : FOR 1=1 TO 
2000 : NEXT I : RETURN 
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QUINDICI ! 




Hai buone doti di resisten- 
za e una notevole capacità 
di riflessione? Questo è il 
gioco che fa per te, ammes- 
so che tu abbia anche un 
po’ di tempo: specie se sei 
alle prime armi con Quindi- 
ci. Se poi hai uno schermo 
a colori, vedrai come con 
poca cosa si sia ottenuto 
molto dal punto di vista 
della pulizia della grafica e 
dei colori. Un programma 
per i giovani e anche per 
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meno giovani, che si ricor- 
deranno con nostalgia di 
un bel passatempo dei tem- 
pi andati. 

Questo è un gioco che era 
infatti molto popolare negli 
anni Sessanta, ed è un po’ 
l’antenato del cubo di Ru- 
bik. La versione originale 
(vale a dire non compute- 
rizzata) era costituita da 
una tavoletta di plastica 
quadrata che conteneva 15 
caselline numerate, che po- 
tevano essere spostate oriz- 
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10 COLORO, 2:COLOR4, 2:VOL8 
20 DIMN( 3 , 3 ) : DIMNZ$ ( 1 5 ) 

. 30 X=0:Y=0:C2$="" : C 3 $ = " " 

*0 T P $ = " { 1 7 SH C } " : S$=" { SH B } { CUR . Gl U } { C 
U R . S I N } { SH B} {CUR. GIU} {CUR. SIN} {SH B) 
{ CUR. GIU } {CUR. SIN} {SH B } { CUR . Gl U } { CUR 
.SIN} { SH B} {CUR. GIU} {CUR. SIN} {SH B}{C 
UR .GIU} " 

4 5 S $ = S $ + " {CUR. SIN} {SH B } { CU R . Gl U } { CUR . S 
IN} { SH B} {CUR. GIU} {CUR. SIN} {SH B}{CUR 
.GIU} {CUR. SIN} {SH B} {CUR .GIU} {CUR. SIN 
} { SH B} {CUR. GIU} {CUR. SIN} {SH B}{CUR.G 
IU}" 

46 S$=S$+ " {CUR. SIN} {SH B } { CUR . GIU } { CUR . S 
IN} { SH B} {CUR. GIU} {CUR. SIN} {SH B}{CUR 
.GIU} {CUR. SIN} {SH B} {CUR .GIU} {CUR. SIN 
} { SH B} {CUR. GIU} {CUR. SIN}" 

50 C X $ = " {5 SPC} {CUR .GIU} {CUR .SIN} {CUR.G 
IU} {CUR. SIN} {CUR. GIU} {CUR. SIN} {CUR. 
GIU} {CUR .SIN } {2 CUR. SIN} " 

55 CX$ = CX$ + " {2 CUR. SIN} {2 CUR. SIN} {2 C 
UR . SIN } {CUR.SU} {CUR. SIN} {CUR .SU} {CU 
R.SIN} {CUR.SU} {CUR. SIN} » 

60 CD$=" {HOME} {4 CUR.GIU}":CR$="{10 CUR. 

DES}":CS$="{SH U } { 3 SH * } { SH I}" 

62 CS$=CS$+" {CUR .GIU} {CUR .SIN } {SH B}{CUR 
.GIU} {CUR. SIN} {SH B}{CUR.GIU}{CUR.SIN 
} { SH B}{CUR.GIU} {CUR. SIN} {SH K } { 2 CUR 
.SIN} {SH *} {2 CUR. SIN}" 

64 CS$=CS$+" {SH * } { 2 CUR.SIN}{SH *}{2 CU 
R.SIN} { SH J} {CUR.SU} {CUR. SIN} {SH B } { C 
UR .SU } {CUR .SIN } {SH B } { CU R . SU } { CU R . S I N 
} { SH B}" 

70 BD$=" {HOME} { 6 CUR . GIU } " : BR$ = " { 1 2 CUR. 
DES} " 

80 COLORI , 3 ,3 : PRINT" {CLR } {CUR .GIU} { 8 CUR 
.DES} {BLACK} {RVS ON} Q {RED} U { C Y AN } 

I {PURPLE} N {GREEN} D {BLUE} I {ORA 
NGE } C {BROWN} I " 

110 COLORI , 9 , 4 : PRINT" {3 CUR.GIU}{15 CUR. 
DES } ISTRUZIONI" 

120 PRINT" {2 CUR . Gl U } { 8 CU R . D ES } ' I ' { 4 SP 
C {CURSORE A SINISTRA" * 

130 PRINT" {CUR. GIU} {8 CUR . DES } • P * { 4 SPC} 
CURSORE A DESTRA" 

140 PRINT" {CUR. GIU} {8 CUR . DES } » Q ' { 4 SPC} 
CURSORE IN SU" 

150 PRINT" {CUR. GIU} {8 CUR . DES } » Z ' { 4 SPC} 
CURSORE IN GIU'" 

160 PRINT" {2 CU R . Gl U } {7 CUR . DES } SP AZ IO { 2 
SPC } PER MUOVERE" 

170 PRINT" {3 CUR. GIU} {7 CUR . DES } PREM I RE 
TURN PER INIZIARE" 

180 GETA$: IFASC ( A$ ) < > 1 3THEN1 80 




190 NZ$(0)=*"{WHITE} {RVS ON } { 3 SPCHCUR.G 
IU } { 3 CUR.SIN}{3 SPC} {CUR .GIU} {3 CUR 
.SIN} {3 SPC}'» 

200 NZ$(1 )=" {BLACK} {RVS ON } { 3 SPCHCUR.G 
IU } { 3 CUR. SIN} 1 { CUR . GIU } (3 CUR. SIN 

} { 3 SPC}" 

210 NZ$(2)=*" {RED} {RVS ON } { 3 SPC}{CUR.GIU 
} { 3 CUR. SIN} 2 { CUR . GIU } (3 CUR.5IN}{ 
3 SPC}" 

220 NZ$(3) = " { C Y A N } {RVS ON } { 3 SPCHCUR.GI 
U } { 3 CUR. SIN} 3 {CUR. GIU } {3 CUR. SIN} 
{3 SPC}" 

230 NZ$(4)»" {PURPLE} {RVS ON } { 3 SPC}{CUR. 
GIU } {3 CUR. SIN} 4 { CUR . Gl U } {3 CUR. SI 
N } { 3 SPC}" 

240 NZ$(5) = " {GREEN} {RVS ON } { 3 SPCHCUR.G 
I U } { 3 CUR. SIN} 5 { CUR . GIU } {3 CUR. SIN 
} { 3 SPC}" 

250 NZ$(6)="{3LUE} {RVS ON } { 3 SPCHCUR.GI 
U } { 3 CUR. SIN} 6 { CUR . GIU } {3 CUR. SIN} 
{3 SPC}" 

260 NZ$(7)=” {LT .GREEN} {RVS ON } { 3 SPC}{CU 
R . GIU } {3 CUR. SIN} 7 {CUR.GIUH3 CUR. 
SIN } { 3 SPC}" 

270 N Z $ ( 8 ) = " {ORANGE} {RVS ON } { 3 SPC}{CUR. 
GIU } { 3 CUR. SIN} 8 { CUR . GIU } {3 CUR. SI 
N } { 3 SPC}" 

280 NZ$(9)=" {BROWN} {RVS ON } { 3 SPCHCUR.G 
IU } { 3 CUR. SIN} 9 { CUR . GIU } {3 CUR. SIN 
} { 3 SPC}" 

290 NZ$( 1 0)=" {YL-GREEN} {RVS ON } { 3 SPC}{C 
UR . Gl U } {3 CUR .SIN } 1 0 {CUR.GIU}(3 CUR 
.SIN} {3 SPC}" 

300 NZ$ ( 1 1 ) =" { P I N K } { RVS ON } { 3 SPCHCUR.G 
IU } { 3 CUR . SIN } 1 1 {CUR. GIU} {3 CUR. SIN 
} { 3 SPC}" 

310 NZ$(1 2)*" {BL-GRN } {RVS ON } { 3 SPC}{CUR 
. GIU } { 3 CUR. SIN} 12 {CUR. GIU} {3 CUR.S 
IN } { 3 SPC}" 

320 NZ$(1 3) = " {LT.BLUE} {RVS ON } { 3 SPC}{CU 
R.GIUH3 CUR . SIN } 1 3 { CUR . Gl U } { 3 CUR. 
SIN} {3 SPC}" 

330 NZ$(1M) = " {D.BLUE} {RVS ON } { 3 SPC}{CUR 
. GIU } {3 CUR . SIN } 1 4 { CUR . GIU } {3 CUR.S 
IN} {3 SPC}" 

340 N Z $ ( 1 5 ) = " { LT . G R E E N }{ R V S ON } { 3 SPC}{C 
U R . Gl U } { 3 CUR . SIN } 1 5 {CUR.GIU}{3 CUR 
. S IN } { 3 SPC}" 

350 FORI=0TO3:FORJ=0TO3:N(I , J )-I*4+ J:NEX 
TJ , I 

360 PRINT" {CLR}{CUR.GIU}{15 CUR.DES}QUIN 
DICI ! " :GOSUB550 

370 XI *0: Y1 -0 :X-0 :Y=0 : Z=20+INT(RND(0)*25 

) 




zontalmente e verticalmen- 
te. Scopo del gioco era, par- 
tendo da una configurazio- 
ne casuale delle mattonelli- 
ne risistemarle in ordine 
numerico. 

I problemi principali che si 
ponevano per chi giocava 
erano: 1) la notevole resi- 
stenza che spesso oppone- 
vano le caselline ad essere 
spostate; 2) la difficoltà di 
risoluzione del gioco. Ma 
questo programma per il 
C16 ti permetterà di evitare 
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completamente il primo 
problema affidandolo total- 
mente alle capacità del tuo 
computer, per dedicarti 
esclusivamente al secondo. 
Le semplicissime istruzioni 
per giocare a QUINDICI ti 
verranno mostrate diretta- 
mente dal tuo C16. Buona 
fortuna! 

Tratto da 
Paper Soft 14/85 


Non perdete il 
prossimo numero di 
Jackson Soft 
Compilation. Lo 
troverete in edicola il 
IO Ottobre. 


380 F0RJ=1T0Z:X=INT(RND(0)*4) :G0SUB620:Y 


=INT(RND(0)*4) : GOSUB620 : NEXT 


39 0 COLORI ,3,3:PRINTCD$;CR$;" {CUR.DES} {C 


UR .GIU}" ;C2$;C3$;CS$; " { HOME } " : X = 0 : Y = 


400 GETA$ : I F A $ < > " " AN D A $< > " P " AN D A $ < > " I " A 


NDA$<>"Q" ANDA$<>"Z"THEN400 


410 I F A $ = " "AND(X1=X0RY1 =Y)THENG0SUB620: 


GOTO 4 00 


420 PRINTCD$;CR$;" {CUR.GIU} {CUR.DES}" ;C2 


$ ; C 3 $ ; CX$ 


430 IFA$<>" "THENS0UND1 , 400,7 


440 IFA$="P"THENX=X+1 :C2$=C2$+ M {4 CUR.DE 


S} M : IFX>3THENX = 0 : C 2 $ = " " 


450 IFA$<>"I "THEN480 


460 X = X-1 : IFX>=0THENC2$=LEFT$(C2$ , X * 4 ) :G 


0TO520 


470 X=3:C2$=" {1 2 CUR.DES}" :GOTO520 


480 IFA$<>"Q" THEN51 0 

l 

490 Y = Y- 1 :IFY> = OTHENC3$ = LEFT$(C3$,Y*4):G 


OTO520 


500 Y=3:C3$=" { 1 2 CUR.GIU}" 


510 IFA$="Z"THENY=Y+1 : C3$=C3$ + " { 4 CUR.GI 


U } " : IFY>3THENY = 0 :C3$ = " " 


5 20 COLORI ,3»3:PRINTCD$;CR$;" {CUR.GIU} {C 


UR.DES}";C2$;C3$;CS$ 


530 GOT0400 


540 END 


550 COLORI , 1 : PRINTCD$; CR $ ; " {SH U}";TP$;" 


{SH 1} {CUR.GIU} {CUR. SIN}" ;S$; 


560 PRINTCD$ ; CR$ ; " {CUR . GIU } " ; S$ ; " {SH J}" 


; T P $ ; " { SH K}"; 


570 PRINTCD$;"{4 CUR.GIU}"; 


580 F0RI = 0T03 : PRINTCR$; " {2 CU R . DES } " ; : FO 


RJ=0T03 


590 PRINT"{2 CUR .SU}" ;NZ$ (I*4+J) ; " {RVS 0 


FF} " ; sN( I , J )=I*4+J 


600 NEXTJ : PRINT : PRINT : PRINT : PRINT : NEXTI 


610 RETURN 


620 IFX1 -XANDY1 -YTHENRETURN 


630 IFY<Y1THENF0RI=Y1-1T0YSTEP-1 :N(I+1 , X 


) =N ( I , X ) : GOSUB680 : Y 1 =Y : NEXT 


640 IFY>Y1THENFORI=Y1 +1TOY :N (1-1 , X)=N(I , 


X ) : G0SUB690 : NEXT:Y1 =Y :RETURN 


650 IFX<X1THENF0RI=X1-1T0XSTEP-1 : N ( Y , I + 1 


)=N ( Y , I ) : G0SUB71 0 :NEXT:X1=X:RETURN 


660 IFX>X1THENFORI = X1 + 1 TOX : N ( Y , I - 1 )=N (Y , 


I) :G0SUB720 : NEXT: XI =X: RETURN 


6 70 PRINTBD$; BR$ ;NZ$(0) :C0L0R1 , 1 : RETURN 


680 Z$=BD$:BD$-LEFT$(BD$, 1*4+7): G0TO700 


690 Z$=BD$ : BD$=BD$+" { 4 CUR.GIU}" 


700 SOUNDl, 1000-5*1 , 2 : GOSUB67 0 : PRINTZ$ ; B 


R $ ; N Z $ ( N ( I , X ) ) : RETURN 


710 Z$=BR$:BR$=LEFT$(BR $,1*4+12): G0T0730 


720 Z$=BR$: BR$=BR$+" {4 CUR.DES}" 


7 30 SOUND 1 , 970 + 5*1, 2:G0SUB670:PRINTBD$;Z 


$ ; N Z $ ( N ( Y , I )•) : RETURN 



30 






BASIC 


statistica fé 


kssetf' 

; ****|| 
i Corri mod( 


Sharp M2-8QA 


_ on, 

naturalmente. 


ELENCO DEI TITOLI DISPONIBILI 

I tascabili Jackson sono uno 
strumento prezioso per chi lavora 
con i l computer. 


■SINCLAIR SPECTRUM cod. 017H 
■VIC 20 cod. 005H 
■COMMODORE 64 cod. 002H 
PC IBM cod. 018H 
•APPLE Ile cod. 003H 
•SHARP MZ80A cod. 014H 
•LA PROGRAMMAZIONE cod. 004H 
•WORD STAR cod. Ò08H 
•UNIX cod. 009H 
•LOGO cod. 020H 
■MS-DOS cod. 019H 
■PROGRAMMI DI STATISTICA cod. 
01 5H 

■CP/M cod. 01 IH 
•PC-DOS cod. 012H 


•BASIC cod. 007H 
■ASSEMBLER Z80 cod. 016H 
■ASSEMBLER 6502 cod. 013H 
•COBOL cod. 001 H 
•FORTRAN 77 cod. 01 OH 
•PASCAL cod. 006H 
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